www.gusucode.com > ASP 在线订购程序 > ASP 在线订购程序\code\putong\inc\code.asp

    <%
Response.buffer=false
NumCode
Function NumCode()
    dim action
    action=Request.QueryString("action")
	Response.Expires = -1
	Response.AddHeader "Pragma","no-cache"
	Response.AddHeader "cache-ctrol","no-cache"
	dim rndnum,i,j
	dim Ados,Ados1
	Randomize
    Do While Len(rndnum)<4
    num1=CStr(Chr((57-48)*rnd+48))
    rndnum=rndnum&num1
    loop
	
	select case action
    case "join"
	session("join_verifyid")=rndnum

    case "join_edit"
	session("join_edit_verifyid")=rndnum
	
    case "web_admin"
	session("web_admin_verifyid")=rndnum
	
	end select
	
	dim zimg(4),NStr
		NStr=cstr(rndnum)
		For i=0 to 3
			zimg(i)=cint(mid(NStr,i+1,1))
		Next
	dim Pos
	set Ados=Server.CreateObject("Adodb.Stream")
		Ados.Mode=3
		Ados.Type=1
		Ados.Open
	set Ados1=Server.CreateObject("Adodb.Stream")
		Ados1.Mode=3
		Ados1.Type=1
		Ados1.Open
		Ados.LoadFromFile(Server.mappath("body.Fix"))
		Ados1.write Ados.read(1280)
		for i=0 to 3
			Ados.Position=(9-zimg(i))*320
			Ados1.Position=i*320
			Ados1.write ados.read(320)
		next	
		Ados.LoadFromFile(Server.mappath("head.fix"))
		Pos=lenb(Ados.read())
		Ados.Position=Pos
		for i=0 to 9 step 1
			for j=0 to 3
				Ados1.Position=i*32+j*320
				Ados.Position=Pos+30*j+i*120
				Ados.write ados1.read(30)
			next
		next
		Response.ContentType = "image/BMP"
		Ados.Position=0
		Response.BinaryWrite Ados.read()
		Ados.Close:set Ados=nothing
		Ados1.Close:set Ados1=nothing
End Function
%>